home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / Debian / DocBase / Programs / Dwww.pm < prev    next >
Encoding:
Perl POD Document  |  2008-09-07  |  831 b   |  37 lines
  1. # vim:cindent:ts=2:sw=2:et:fdm=marker:cms=\ #\ %s
  2. #
  3. # $Id: Dwww.pm 143 2008-04-27 08:07:20Z robert $
  4. #
  5.  
  6. package Debian::DocBase::Programs::Dwww;
  7.  
  8. use Exporter();
  9. use strict;
  10. use warnings;
  11.  
  12. use vars qw(@ISA @EXPORT);
  13. @ISA = qw(Exporter);
  14. @EXPORT = qw(RegisterDwww);
  15.  
  16. use Debian::DocBase::Common;
  17. use Debian::DocBase::Utils;
  18.  
  19. our $dwww_build_menu = "/usr/sbin/dwww-build-menu";
  20.  
  21. # Registering to dwww:
  22. sub RegisterDwww($@) { # {{{
  23.   my $showinfo = shift;
  24.   my @documents = @_;
  25.  
  26.   Debug("RegisterDwww started");
  27.  
  28.   if (-x $dwww_build_menu) {
  29.     Inform("Registering documents with dwww...") if $showinfo and $opt_update_menus;
  30.     Execute($dwww_build_menu) if $opt_update_menus;
  31.   } else {
  32.     Debug("Skipping execution of $dwww_build_menu - dwww package doesn't seem to be installed");
  33.   }
  34.   Debug("RegisterDwww finished");
  35.  
  36. } # }}}
  37.